<%@ Page language="vb" CodeFile="userInside.aspx.vb" Inherits="flspartnerweb.userInside_aspx_vb" %>
<%
    If flsPartnerWebType = "p" Then 
        strSQL = "Select partnerName As flsPartnerWebbName From tblPartner Where partnerID = " & flsPartnerWebID & ""
    ElseIf flsPartnerWebType = "d" Then 
        strSQL = "Select dealer As flsPartnerWebbName From tblDealer Where dealerID = " & flsPartnerWebID & ""
    ElseIf flsPartnerWebType = "de" Then 
        strSQL = "Select dealerEmployee As flsPartnerWebbName From tblDealerEmployee Where dealerEmployeeID = " & flsPartnerWebID & ""
    End IF
    dbOpen()
    RecSet = Conn.Execute("" & strSQL & "")
    If RecSet.EOF Then 
        Response.Redirect("logOut.aspx?error=7")
    Else
        flsPartnerWebbName = RecSet.Fields("flsPartnerWebbName").Value
    End IF
    RecSet.Close()
    RecSet = Nothing
    dbClose()
    Over()
    Response.Write("<table cellpadding='0' cellspacing='0' border='0' width='1000'>")
    Response.Write("<tr>")
    Response.Write("<td valign='top'>")
    Response.Write("<table cellpadding='2' cellspacing='2' width='450'>")
    Response.Write("<tr><td class='headline'>Velkommen " & UCase(flsPartnerWebbName) & "<hr class='hrHeadline'></td></tr>")
    Response.Write("</table>")
    Response.Write("</td>")
    Response.Write("<td width='100'></td>")
    Response.Write("<td valign='top'>")
    Response.Write("<table cellpadding='2' cellspacing='2' width='450'>")
    Response.Write("<tr><td class='headline' colspan='3'>Generel Statistik<hr class='hrHeadline'></td></tr>")
    Response.Write("<tr><td colspan='3'><hr class='hrHeadline'></td></tr>")
    Response.Write("</table>")
    Response.Write("</td>")
    Response.Write("</tr>")
    
    
    
    
    Response.Write("</table>")
    
    Response.Write("<table cellpadding='0' cellspacing='0' border='0' width='1000'>")
 
    Response.Write("</table>")
    Under()
%>
